(prompt "In welchem Verzeichnis soll \"MailFilter\" installiert werden? Alle nötigen Dateien werden direkt in dieses Verzeichnis kopiert!")
(help @askdir-help)
(default progdir)
)
)
)
)
(set @default-dest progdir)
(if copyprefs
(copyfiles
(prompt "Kopieren der Programmdateien")
(help @copyfiles-help)
(source "")
(dest progdir)
(pattern "MailFilter#?")
(infos)
(files)
(confirm)
)
(
(copyfiles
(prompt "Kopieren der Programmdateien. Die Datei \"MailFilter.prefs\" wird, falls nötig, in ein neues Format konvertiert. Die alte Datei bleibt dann unter dem Namen \"MailFilter.prefs.old\" erhalten.")
(help @copyfiles-help)
(source "")
(dest progdir)
(pattern "(MailFilter|MailFilter.guide)")
(infos)
(files)
(confirm)
)
(run "ConvertPrefs MAILFILTER:MailFilter.prefs")
)
)
(set screenname
(askstring
(prompt "Welchen Namen hat der PublicScreen von \"TheAnswer\"?")
(prompt "Soll MailFilter nach jedem Reset automatisch gestartet werden? Wenn Sie jetzt \"Ja\" wählen wird ein Projekt-Piktogramm nach \"SYS:Wbstartup\" kopiert!")
(help "Keine Hilfe verfügbar.")
(choices "Ja" "Nein")
(default 0)
)
)
)
(if auswahl
(
(copyfiles
(prompt "Kopieren des Piktogramms \"Start_MailFilter.info\" nach \"SYS:Wbstartup\".")
(help @copyfiles-help)
(source "")
(dest "SYS:Wbstartup")
(pattern "Start_MailFilter.info")
(files)
(confirm)
)
(tooltype
(prompt "")
(dest "SYS:Wbstartup/Start_MailFilter")
(setdefaulttool tool)
(noposition)
)
)
)
(set auswahl
(askbool
(prompt "\"Mailfilter\" kann über ARexx mit \"TheAnswerIII\" zusammenarbeiten! Sollen die nötigen ARexx-Scripts jetzt installiert werden?")
(help "Keine Hilfe verfügbar.")
(choices "Ja" "Nein")
(default 0)
)
)
(if auswahl
(
(set lhaprog
(askfile
(prompt "LhA muß aus den ARexx-Scripts heraus gestartet werden. Dazu muß der Pfad von LhA bekannt sein. Wählen Sie jetzt bitte den LhA Befehl aus!")
(help @askfile-help)
(default "LhA")
)
)
(set pathname (pathonly (expandpath lhaprog)))
(set lzxprog (tackon pathname "LZX"))
(set lzxprog
(askfile
(prompt "LZX muß aus den ARexx-Scripts heraus gestartet werden können. Dazu muß der Pfad von LhA bekannt sein. Wählen Sie jetzt bitte den LZX Befehl aus!")
(help @askfile-help)
(default lzxprog)
)
)
(set pathname (pathonly (expandpath lzxprog)))
(set unzipprog (tackon pathname "UnZip"))
(set unzipprog
(askfile
(prompt "UnZip muß aus den ARexx-Scripts heraus gestartet werden können. Dazu muß der Pfad von LhA bekannt sein. Wählen Sie jetzt bitte den UnZip Befehl aus!")
(help @askfile-help)
(default unzipprog)
)
)
(set tempdir
(askdir
(prompt "Zum Entpacken der Netcall-Archive wird ein temporäres Verzeichnis benötigt. In diesem Verzeichnis muß genug Platz für den gesamten, entpackten Puffer sein! Welches Verzeichnis soll verwendet werden?")
(help @askdir-help)
(default "T:")
)
)
(textfile
(prompt "Erstellen des ARexx-Scripts, das zum automatischen Filtern der Netcall-Puffer benötigt wird.")
(help "Keine Hilfe verfügbar.")
(dest "REXX:FilterPuffer.rexx")
(confirm)
(append "/* ARexx - Script für TheAnswerIII und MailFilter */\n")
(append "** Erkennt automatisch ob der angekommene Puffer ein LHA-, LZX-,\n")
(append "** ZIP-Archiv, oder ungepackt ist, entpackt oder kopiert diesen\n")
(append "** entsprechend nach 'T:WILAM-04431-92081' und filtert dann alle\n")
(append "** enthaltenen Einzelpuffer. Die gefilterten Puffer werden im\n")
(append "** aktuellen Verzeichnis gespeichert und können danach einsortiert\n")
(append "** werden.\n")
(append "**\n")
(append "** FilterPuffer.rexx muß nach REXX: kopiert werden\n")
(append "*/\n")
(append "\n")
(append "/*\n")
(append "** Hier müssen die kompletten Pfade der Packer LHA, LZX und UNZIP\n")
(append "** eingetragen werden. Für Packer, die nicht verwendet werden, muß\n")
(append "** nichts angegeben werden. Alle Pfade müssen in Anführungszeichen\n")
(append "** oder Hochkommas stehen.\n")
(append "*/\n")
(append "\n")
(append "lha = '")
(append lhaprog)
(append "'\n")
(append "lzx = '")
(append lzxprog)
(append "'\n")
(append "unzip = '")
(append unzipprog)
(append "'\n")
(append "\n")
(append "\n")
(append "/*\n")
(append "** Hier wird ein Verzeichnis für temporäre Daten angegeben. Auf\n")
(append "** dem Datenträger, der dieses Verzeichnis enthält muß genügend\n")
(append "** Speicherplatz für den gesamten, entpackten Puffer vorhanden\n")
(append "** sein. Der Pfad muß in Anführungszeichen oder Hochkommas stehen.\n")
(append "*/\n")
(append "\n")
(append "tempdir = '")
(append tempdir)
(append "'\n")
(append "\n")
(append "\n")
(include "TheAnswer/rexx/FilterPuffer.install")
)
(if (exists "TA3:Rexx" (noreq))
(
(set rexxdir "TA3:Rexx")
)
(
(if (exists "TheAnswerIII:Rexx" (noreq))
(
(set rexxdir "TheAnswerIII:Rexx")
)
(
(set rexxdir @default-dest)
)
)
)
)
(set rexxdir
(askdir
(prompt "Einige ARexx-Scripts müssen in das Verzeichnis \"TA3:Rexx\" kopiert werden! Wählen Sie jetzt bitte dieses Verzeichnis als Zielverzeichnis!")
(help @askdir-help)
(default rexxdir)
)
)
(copyfiles
(prompt "Kopieren der ARexx-Scripts für das automatische Eintragen von Absendern, Betreffs und Headern in die Filterliste.")
(help @copyfiles-help)
(source "TheAnswer")
(dest rexxdir)
(pattern "#?.TA3")
(files)
(confirm)
)
)
)
(if (not update)
(
(startup @app-name
(prompt "Die Anweisung:\n\"Assign MAILFILTER: " progdir "\"\nmuß zur \"S:User-Startup\" hinzugefügt werden.\n\n Das logische Verzeichnis \"MAILFILTER:\" ist nötig damit das Programm aus den ARexx-Scripts gestartet werden kann. Die Voreinstellungen werden ebenfalls in diesem Verzeichnis gesucht.")
(help @startup-help)
(command "Assign MAILFILTER: \"" progdir "\"\n")
)
(makeassign "MAILFILTER" progdir)
)
)
(exit "Damit das empfangene Archiv beim Netcall automatisch gefiltert wird müssen Sie \"TAConfig\" starten und dort \"Netcall\" aufrufen. Im Eingabefeld \"Download-Packer\" tragen Sie bitte folgendes ein:\nrx rexx:FilterPuffer.rexx %a\n\nViel Spaß beim Filtern! :-)")
